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SBEGIN RMIUPDATE,000,RMSRMS1,<SEQUENTIAL SPECIFIC UPDATE> 


| eusenbosnnneneetennenebensesacnneoseteenssesenseeseceensecodeaneeneesesonse 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


‘* af 
-® ® 
** ® 
ad ar 
*® ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:e IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE + 
ie SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE. OR OTHER * 
te COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. “ 
:* ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. . 
*® te 
** ® 
**® ® 
* * 
** ® 
*® * 


DIGITAL ASSUMES NO RESPONS "7 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 
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this module provides sequential file organization 
specific processing for the Supdate function. 


star processor running starlet exec. 
lt f laverdure, creation date: 14-JUL-1977 


yd hnson 07-Aug-1984 


J E John 9g 
ack out JEJ0049 due to some unexplained side effects. 


JEJ0049 J E Johnson 23-Jul-1984 

Alter the logic in BLDREC to force a flush of the current 
buffer if it is exactly filled by the record instead of 
waiting for the next operation to force it out. 


TSK0001 Tamar Krichevsky 9-Dec-1983 

Add support for BI journaling and recovery. First, make sure 
the buffer is always filled. That is, no optimizations are 
done (such as skipping reads or doing short reads) when the 
file is oetne BI journaled. We need the whole record in the 
buffer, so that it can be copied to the journal entry. 
Second, if BI recovery is occuring, do not agpene any et dew 
STREAM terminators to the end of a record. e data put bac 
in the file must be exactly the same as that which was taken 
out. Appending missing terminators to the end record may 
overwrite data. 


TSK0002 Tamar Krichevsky 22-Jun-1983 
Fix broken branch to RMSSEQJNL. 

TSK0001 Tamar Pr teheveny 21-Jun-1983 
Add support for journaling S$SUPDATE operations. 
TMKO001 Todd 27-Dec-19 


M. Katz 82 
Clear the bit IRBSV_FIND_LAST as soon as RMSUPDATE1 ic entered. 


KPLOO01 Peter Lieberwirth — 20-Dec-1982 

Fix a bug introduced some time during V3.0 development that 
broke updating when the multi-block count is_1 and the record 
happened to be just the right length (Like 256 for example). 
Improve the commentary where the magic is. 


KBT0419 Keith B. Thompson 30-Nov-1982 
Change ifb$w_devbufsiz to ifb$l_devbufsiz 
KBT0150 Keith B. Thompson 20-Aug-1982 


Reorganize psects 
KBT0090 Keith B. Thompson 


§ p++ 
4 : Facility: rms32 
00 1 ; Abstract: 
00 ¢ 3 
00 ; 
0000 4; 
44 5: 
00 6 ; Environment: 
0000 73 
0000 8; 
BR 88 ip 3; Author: 
0000 41 ; Modified By: 
0000 rt: : 
0000 43; v03-010 
0000 44 ; 
0000 45 ; 
0000 46 ; v03-009 
0000 47 ; 
0000 48 ; 
0000 49 ; 
0000 50 ; 
0000 51 3 v03-008 
4 Se 3 
0000 55; 
0000 54; 
0000 2? 3 
2009 6; 
0000 57 ; 
0000 58 ; 
0000 59 ; 
0000 60 ; 
0000 61 ; 
0000 6¢ 5 
0000 63 ; v03-007 
0000 64 ; 
0000 65 ; 
0000 66 ; v03-006 
0000 67 ; 
0000 68 ; 
0000 69 ; v03-005 
0000 70 ; 
0000 71 3: 
0000 2 3 v03-004 
0000 73 3 
0000 74; 
0000 75 3: 
898 76 ; 
BP 77; 
000 78 ; v03-003 
0000 79 ; 
44 0; 
000 13 v03-002 
000 Hf 3 
0 3 3 
0 4; v03-001 
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a9 bg ; Clean up psects 
0 5 ; v02-015 TMK0034 Todd M. Katz 22-Dec-1981 
0 8 ; Fix a broken branch by change a BRW RMSPUT_UNIT_REC 
6 ; to a JMP. 
91: v02=014 RAS0030 Ron Schaefer 25-Aug-1981 
3 35 3 Fix broken branch caused by _device parsing. 
009 94: v02-013 RASO028 Ron Schaefer 20-Aug-1981 
4 + ; Change FABSC_STM11 to FABSC_STM. 
$00 39 : v02=-012 RASO016 Ron Schaefer 6-Aug-1981 
8000 3 3 Add stream file support. 
9000 100 ; V02=011 REFORMAT RA Schaefer 25-Jul-1980 
4443 13) : Reformat the source 
0000 198 : v010 JAK0040 J A Krycka 15-F EB-1980 
0000 104 ; ix bug in network $Supdate. 
0000 105 ; 
0000 106 ;-- 
0000 107 ; 
0000 108 
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-SBTTL RMSUPDATE1 = HIGH LEVEL SEQUENTIAL SUPDATE 


++ 


RMSUPDATE1: ie level sequential $update 
RMSUPDATE_ALT: alternate entry point for put random 


| 
this modu'e performs the following functions: 
1. calls rm$putsetup! to perform various setups 
- verifies that the file is on disk, that we have a 
current record, and that the size is not changing 
3. reads the block pas the record if geceseery 
4. moves the updated record to the block buffer setting 
the buffer dirty flag 
Calling sequence: 
entered via case branch from rm$update at rm$updatel. 


Input Parameters: 


ri impure area address 
r10 ifab addr 
r9 irab addr 
r8 rab addr 


Implicit Inputs: 
the contents of the rab and related irab and ifab. 
Output Parameters: 


r7 thru ri destroyed 
r0 status 


Implicit Outputs: 


SOSCSCSSCSOSOSOSSOSOSOSOSCSOSCSOOSOSOSOSOOOSOOSOOOSOOSOOOSOSO FY 


SOOCCCOCOCOCO COCO OOSOOCOSCOSOCOOCOOCOOOOOOOOOOOOOOOSOOOoOOoOO -t 


various fields of the rab are filled in to reflect 

the status of the operation (see functional spec 

for details). 

the irab is similarly updated. 
Completion Codes: 

standard rms (see functional spec). 
Side Effects: 


none 


OOOCOCOCOCOSOOSOSOOSOSOOSOSOSOSOOSOOSOSOSOSOOSOSOOOOOOOOOOOOOOOOOoOOoOO 


ANIM OOO OOIOAOOOAQAOOOAOOOAOAOAAAOAOIAOAOAAAOAAAOAAAOAOAAAOOOOOOOOOOOOOOO myP 


COOOCSooooooooooooooo 


Coooooo 
So 
——-GDOCooooooo 


STSTPT UPDATE1 ‘ 
C #IRBS$V_FIND_LAST,(R9) ; last operation is no longer $FIND 


SB 
BSBwW RMSPUTSETUPT ; perform various update setups 


RMSUPDATE1:: | 
FFE7* 30 | 


L 14 


set cache read flags approriately based upon the situation 


The idea here is that if we're ur iting an entire block (the record fills 
up an entire block or more) we don't have to read the block in, because 
it will be totally overwritten anyway. However, if the record does not fill 
an entire block (if there are records before or after the record to update 
in the same block) then the block must be read in. 


RMIUPDATE SEQUENTIAL SPECIFIC UPDATE 16-SEP-1984 00:58:37 VAX/VMS Macro v04-00 P 
v04= RMSUPDATET = HIGH LEVEL SEQUENTIAL SUPDA ‘S-SEP=198¢ forseiee FANG eaCTAMTOPDAtECmaR:1 Page 
32 50 =€9 19 BLBC RO,UPDERR 
3A 6A —E €0 : BBS #1FBSV_DAP, (R10) ,NTUPD ; branch if network file access 
09 ; 
0 Ht : make various legal operation checks 
1 e 
62 AI 8 0 ig TSTW IRB$SW_CSIZ(R9) 3 was there a current rec 
1€ 13 00 14 BEQL ERRCU 3; branch if no 
50 be 91 3 a CMPB b+ eh al ad 3 stream format? 
96 1E 3 § 9 BGEQU 108 ~ 3 no size check for stream 
62 Ad .) a B 18 CMPW R1,1RBSW_CSIZ(R9) ; new size = current rec size? 
B 12 OOF 219 BNEQ  ERRRSZ : branch if not 
52 6A 1¢ EO 8p } 9 10$ BBS #DEVSV_RND, IFBSL_PRIM_DE“(R10),UPDATE ; branch if disk 
0035 5 
EE § 3; handle errors 
Be 
0035 226 RMSERR IOP 3; devi t disk 
12 11 005A 337 BRB «UPDERR pilin trogen Spt 
ist $$ nario RMSERR RSZ d si h d 
; ttempt 
a 2041 3 se OS ae record size change attempte 
GOt§ $88 ERRCUR: ee cup oud 
6 11 0048 939 BRB UPDERR ee 
004A 237 UPDERR_RSTNRP: 
40 A9 BE 7D O046A 238 MOVQ (SP)+, IRBSL_NRP_VBN(R9) ; restore arp 
BREE $25 samen: 3; and fall thru to upderr1 
62 A9 B4 004E 241 " CLRW  IRB$W_CSIZ(R9) ; indicate no current record 
10 AB 04 0051 seg CLRL RABSW_RFA(R8) ; zero rfa 
14 AB B4& 0054 st CLRW RABSW_RFA+4(R8) 
FFA6" 31 0057 44 BRW RMSEXRMS 
bosa 548 
005A 247: perform network update function 
Bet 
BO8A 50 NTUPD: 
005A 51 SSB #IRBSV_UPDATE, (R9) 3; mark this as an update function 
FFOF* 30 Oaae 26 BSBW RMSPUT_UNIT_REC ; join network $put code 
0061 54 
061 55 
0061 28 
0061 5 
061 28 
061 5 
061 60 
33! 61 
61 62 


—2zD 


RMIUPDATE SEQUENTIAL SPECIFIC UPDATE SEP-1984 00: AX/VMS Macro v04-00 Page 7 | 
v04-000 RMSUP BDATEA - HIGH CevEL SEQUENTIAL SUPDA Bost} 9° +38: HH FRMS. SRCIRMIUPDATE.MAR; 1 . aid 
1 63 ; If the record to be updated starts on a block boundary and either ends on 
! ee 3 then a block boundary or the end does not fit in the buffer | 
43 66 3 m r3 is set to 2 to indicate a short read (r2 set to # of blocks to read) 
; se 
53 oe 3 r3 is cleared indicating a full buffer is to be read | 
061 % NOF IT: 3; all blocks of record don’ t fit in buffer | 
4C Ad 8 061 71 TSTW IRBSW_RP_OFF(R9) ; is the start offset = 
08 1 064 ie} BEQL NOREAB 3 branch if yes (no read coenivedl 
52 Bs O06 er is ly the Ist blk needs to be read 
; only the Ist needs to be rea 
25 boss 598 BRE «GETBLK : 
Batt 
6A 77; 
006A 78 ; check for ending offset = 0 and if so omit entire read 
006A 79 ;: 
006A ey 
50 B65 006A 1 CHKEND: TSTW RO : is end offset 0? 
3E 12 006C Hf NEQ GETBLK br anch if not (must read) 
03 50 AA 91 B05 83 NOREAD: CMPB IFBSB_RFMORG(R10), AFABSC. _VFC ; rfm = vfc? 
38 8613 «007 84 BEQL GETBLR ; branch if yes - can't optimize 
0074 285 
0074 86 ; 
0074 87 ; entry point for put past current eof block 
0074 88 ; 
0074 89 
0074 90 NOREAD1: 
53 01 DO 0074 91 MOVL #1,R3 :; flag read not needed 
33. 11 0077 3 BoE GETBLK 
0079 9 
0079 94; 
0079 95 ; entry point from put random 
0079 296; 
0079 297 ; check for past eof block implying no read required 
0079 298; 
0079 +44 
0079 00 RMSUPDATE_ALT:: 
74 AA 48 AD D1 0079 30) CAPL ogy RP_VBN(R9) , IFBSL -EBK (R10) 3 past eof block? 
07 #1F OO7E Oe BLSSU THs : branch if not 
F2 1A 0080 30 BGTRU : crameh if yes 
5C AA B5 ooRe $o¢ TSTW tite + acRt0) ; any data th block? 
ED 13 008 05 BEQL NOREAD1 ‘ : branch if none 
| 
| 
i 
} 
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current register contents: 


ril-r8 normal rms 
r record data length in bytes 
r record data address 


ri total record size including overhead bytes 


UPDATE: 


MOVL #2,R3 ; set ftag for read required, 
; explicit # of blocks 
ADDW3 IRBSW_RP_OFF(R9),R1,RO ; get end offset 
; Note that: RO - offset from buffer start to end of record+1 
3 RP_OFF = offset from buffer start to start of record 


SUBYS #1,R0,R2 
R 


get actual end 

get number of blocks - 1 in R2 
offset in Last block 

all blocks fit in buffer? 
branch if not 


EXTZV #9.487 
#°xFEOO, 

R2, IRBS$B 

NOF IT 


@e Se Se Ge Ge 


C 
I 
0 
4 
Y ; compute # of blocks to be read in if necessary 
4 
5 
6 
7 
8 
] 
0 
: 
4 
5 
6 


Q0A 7 ; all blocks containing the desired record fit in the buffer : 
OOA 8 ; check to see if either starting or ending offset is zero allowing 
O0A 9 ; for a short or null read 
boas ah 
4C AY BS OOA ; TSTW IRBSW_RP_OFF (RO) 3; start offset = 0? 

C2 13 OOA BEQL CHKEND ; branch if yes 

50 B65 OOA 4 TSTW RO : end offset = 0? 

BA 13 QOAA 5 BEQL READ_FIRST 3; branch if yes (read blk 1 only) 
QOAt 347 
OOAC 8 : beginning and ending blocks are partially full. 
QOAC 9 ; read blocks in before update. 
ane 
OAC ¢ GE TBLK 
an 
DOAC i + save current nrp and set orp from rp 

AC . 
OOAC 8 ASSUME IRBSW_NRP_OFF EQ IRBSL_NRP_VBN+4 
7E 40 A9 7D = MOVQ IRBSL_NRP_VBN(R9) ,- 
40 a9 48 A9 = 7D 08 0 MOVQ  IRBSL-RP_QBN(R9), [RBSL_NRP_VBN(R9) 

08 3 
0085 : ; Now that all the checks have been done to optimize the number of blocks to be 
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v04=000 RMSUPDATET © HIGH LEVEL SEQUENTIAL SUPDA 'S-SEP-1984 So;28;84 FANS eRCTRATUPDATECmaR:1 a! (By 
0B5 64 ; read, if this file is being BI journaled, ignore any optimizations and read in 
O85 92 3 everything. 
02 OOAO CA 9¢ €1 B 89 ; BBC | hei IFBSB_JNLFLG(R10), 5$ : If BI quenet tne. 
D4 er rt: : CLRL R ; Turn off read flags 
ped 6 : locate buffer, possibly reading in the current block(s) containing 
00BD 71 ; the record 
0OBD 1g : 
F40" 30 08D 73 5s: BSBW §RMSGETBLKNRP 
50 £9 b0¢0 rh BLBC RO, UPDERR_RSTNRP 


¢ 15 
1g~$EB-1984 00:5 
QUENTIAL SUPDA 5=SEP-1984 16:2 
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au 
zt 


tee 


currrent register contents: 


ril-r8 standard rms 
r7 end block pointer 


r record data length in bytes | 
record data address in bytes 

r4 address of current bdb 

ri address of current block in buffer | 


If journaling is enabled for this file, create and write a journal entry 
for the current record. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
a) 


QOOAO CA 95 TSTB IFBSB_JNLFLG(R10) ; Any journaling enabled? 
15 13 BEQL UPDATE_REC ; No, update record in file 
02 6B PUSHR #*M<R15 ; Yes, save ptr to record destination 
1C DD PUSHL #RJRS_UPDATE ; Operation to be journaled is a $PUT 
QOOOO000'EF 16 JSB RMSSEQJNL ; Journal record 
5E 04 C0 ADDL2 #4, SP ; Remove argument from stack : 
02. «BA POPR #*M<R1> ; Restore ptr to record destination 
03 50 gS BLBS RO, UPDATE REC ; If successful, uodate record 
FF6C 1 BRW UPDERR_RSTARP 3; Clean up and exit on error | 
UPDATE_REC: | 
51 44 A9 (CO ADDL2 IRBSL_NRP_OFF(R9),R1 ; make offset into addr of record 
64 AQ BS TST IRB$W"ROVADSZ(R9) 3 any overhead? 
43. 13 BEQL MOVRE 3 nope 
50 AA 91 CMPB IFB$B_RFMORG(R10) ,- 3; stream record? 
04 #FABST_STM 
3D —=s«s1E BGEQU MOVREC ; branch if yes | 
: record is either var or vfc 
; write out 2 byte binary size field : “ 
; (note: it is assumed we always have room for a size field in a block, 
3; otherwise we would be positioned to the next block already) 
81 56 B80 MOVW R6,(R1)+ ; store size 
ASSUME <FABSC_VFC&1> EQ 1 
ASSUME <FABSC_VAR&1> EQ 0 
36 50 AA E9 BLBC IFBSB_RFMORG(R10) ,MOVREC ; branch if var rfm 


vfc format. store record header 


save record addr and size 


MOVQ = RS, = (SP) 
WOVZBL Fes FSZ7(R10) .R6 et header Length 


SOoooooooooooooooQooooQoooooQooooooooooooooooQOOoOoOoOOCOOOOOOOOOO 
=——DOOCOCOCOOOOCCSOOOSOOSOSOOCSSCSOSOSCSOSOSOSOOSOOOCSOOSOOOCSOOOOOOOOOOOOOO 
QO FF FF SP HMM MMM MmmMmmmmmmmnmos OOOO OO NOOO OOAOOOAOOOAOOOOOO 
VWF NSLS SS LSOOQCOOCS SS SF 99 99D FS NUINIM MMW OOWI DW ONWNW NINN NINN 
Da el el el ek el ek a el ek el i ele tie en ll nl la Rh th eh eh te a. We  We W Wh ah ah ah ah ahah a ahah ah ap ad ah ah ah ahiad apiahiah artanto] 


A -2TR1) 3 Increase record size 
5 2c AB OD MOVL RABSL_RHB(R8) ,R5 ; get record address 
1 BNEQ 10$ : Branch if specified 
55 pee MOVL R1,R5 3; just copy current header 
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1 § 434 ; (i.e., leaves it unchanged) 
1 435 10$ IFNORD R6 (R5) ,ERRRHB, IRB$B_MODE (R9) 3 probe it 
008A 30 10F 4 : BSBW  BLOREC ; move vfc header 
55 3 D O11 4 MOVQ SP)+,R5 ; restore user buffer regs 
OD B 11 4 3 BLBC POERR_BR ; get out on error 
ath 0 011 43 BSBW RMSPROBEREAD 3; reprobe user buffer 
0750 €9 O11B 440 BLBC ,»UPDERR_BR ‘ 
OA 11 O11E 441 BRB MOVREC 
4 0 re : 
120 443 ; handle errors 
0120 444; 
4 8 445 
1 ret ERRRHB: RMSERR RHB ; vad record header buffer 
0125 447 UPDERR_BR: 
BE 05 0125 448 L (SP)+ 3; clean stack 
FF20 31 Q127 449 BRW UPDERR_RSTNRP ; exit update 
012A 450 
Q12A 451 ; 
012A 126 3 now move the data record 
012A 453; 
012A 454 
70 10 O12A 455 MOVREC: BSBB BLDREC 3 move rec to buffer 
012C 456 UPDERR_RSTNRP_1: 
03 50 8 Q012C 457 BLBS RO,5$ ; get out on error 
FFIa 1 b1§5 458 BRW UPDERR_RSTNRP 
0132 459 
0132 460; 
8138 461 ; Now append DFT to stream format if necessary 
013 166 : 
0132 46 
0132 464 ASSUME FABSC_STM GT FABSC_VFC 
0132 465 ASSUME <FABSC_STM+1> EQ FABSC_STMLF 
b135 208 ASSUME <FABSC_STMLF+1> EQ FABSC_STMCR 
O0OA1 CA QO5 93 0132 468 5$: B1TB #<IFBSM_BI_RECVR! IFBSM_PU_RECVR>, IFBSB_RECVRFLGS(R10) 
1 12 0137 469 NEQ ; skip if BI journaling 
55 50 AA 9A 0139 470 MOVZBL IFBSB_RFMORG(R10) ,R5 ; get format type 
55 04 C2 013D 471 SUBL2 #FABST_STM,RS ; normalize type 
13. 1F 0140 tis BLSSU 10% 3 not stream format 
64 A9 B5 0142 47 TSTW IRBSW_ROVHDSZ(R9) 3 anything to add? 
of 13 0145 474 BEQL 10$ ; nope 
55 FEBS CF4 DE 0147 475 MOVAL W*STM_FMT_DFTCR5],R5 3; point to DFT table 
56 85 9A 0140 476 MOVZBL (R5)+,R6 : get ponese 
4A 10 013 477 BSBB Ss BLD REC ; append the DFT 
D7 50 «6&9 «015 478 BLBC RO,UPDERR_RSTNRP_1 ; quit on failure 
015 479 10$: 
0155 $80 3 , 
0135 : 3 Operation now complete. restore nrp data and return rfa. 
155 és : 
74 AA 40 09 O01 B23 484 ° PL IRBSL_NRP_VBN(R9) , IFBSL_EBK(R10) ; new eof? 
1E 015A 485 BGEQU CHKEOF ; branch if maybe 
40 AD 8E 7d QO15SC 4 § UPDXIT: MOVQ (SP)+, IRB$L_NRP_VBN(R9) ; restore nrp 
10 AB 48 A9 7D 160 4 MOVO =IRBS$L_RP_VBN(R9Y ,RABSW_RFA(R8) 
Ag a 165 488 CLRW = IRB$W"CSTZ(R9) ; indicate no current rec. 
FE9S' 1 Shes rt BRW RMSE 3; exit with success 
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RMIUPDATE SEQUENTIAL SPECIFIC UPDATE 16-SEP=-1 AX/VMS cro V04-00 Page 
v04-000 RMSUPDATE1 = HIGH LEVEL SEQUENTIAL SUPDA 5-SEP-19 38 9 b:38: Hh RMS.SR che RMIU UPDATE .MAR; 1 ° 
9168 491 ; 
168 138 ; check to see if this was a random put past current eof and if so 
0168 495; reset the eof pointer to correspond 
Bee 494 ; 
16B 495 
168 138 CHKEOF 
168 49 
16B 498 ; 
0168 499 ; (mote: assumes buff page aligned) 
0168 239 5 
0168 01 
she 206 ASSUME FABSC_VFC GT FABSC_VAR 
te 204 ASSUME FABSC— STM GT FABSC_ _VFC 
50 AA 91 QO15B 505 CMPB IFB$B_RFMORG(R10),- 3 stream format? 
04 Q16E 506 #FABST_ST 
0S =i€ b19f be BGEQU§ 5$ ; don't round for stream 
0171 509 ; BITW #*X1FF RI ; Ig there anything in this buffer? 
Hi4 ai9 3 BEQL 30$ : if not then we're in an empty buffer. 
51 D6 Q171 21§ INCL R1 3; round up offset 
51 01 AA 0173 51 BICW2 #1,R1 
51 FEOO 8F AA 0176 514 5$: BICW2 #*XFEOO,R1 et offset within block 
03 12 O17B = 515 BNEQ 10$ ay I not end of block 
40 A9 06 O017D 516 INCL IRBS$L_NRP_VBN(R9) ner 
74 AA 40 A9 01 0180 517 108: CMPL JRBSL_NRP VBN(R9) , IFBSL iar 0) past eof? 
06 1A 0185 518 BGTRU 20$ ; branch yh yes 
5C AA 51 Bi 0187 519 CMPW R1,1FBSW_FFB(R10) ; offset past eof offset? 
CF 1B Bice 239 BLEQU UPDXIT 3; branch if not 
74 AA 40 A9 DO 018D 256 20S: MOVL IRBSL_NRP spy (Feat EBK(R10) ; reset eof 
5C 51 BO 0192 52 MOVW R1,1FB$w_FFB(R10) 
0196 3g SSB #1FBSV_RO ATTRA RIO) : flag attr. rewrite needed 
co 11 Bioe 2s? BRB UPDXIT™ 
019C 527 ;30$: CMPL IRB$L_NRP_VBN(R9) , IFBSL > i Past eof? 
019C 528; BLEQU UPDXIT on't update eof. 
019¢ 2¢9 ; OVL  IRBSL_ NRP VBN(R9), IFBSL _bexch10) : reset eof 
919C 530; CLRW IF BSW" FFBTR10) ; Already know that offset is zero. 
019C «= 4531 SSB #1FB$U_RW_ATTR, (R10) : falg attr. rewrite needed 
019C 532 ; BRB UPDXIT™ 
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RMIUPDATE SEQUENTI SPECIFIC UPDATE 16-SEP-1984 0:30:37 AX/VMS Macro Vv04-00 Page 13 

v04-000 RMSUPDATE1 = HIGH LEVEL SEQUENTIAL SUPDA 5=-SEP-1984 16:23:54 [CRMS.SRCIRMIUPDATE.MAR; 1 (9) | 
++ 
BLDREC: build record subroutine 


this subroutine moves a record from the user record buffer 
to the rms i/o buffer, crossing block boundaries as needed. 


| 
Calling sequence: | 
bsbw bldrec 
Input Parameters: 


rij impure area address 

ri10 ifab address 

r9 irab address 

r8 rab address 

r7 end of block address + 1 

r6 # of bytes in record 

ri address in rms i/o buffer (destination) 


Implicit Inputs: 


the contents of the various structures, 
in particular, irb$l_curbdb. 


r5 address of record (source) 
Output Parameters: 


ri address of byte following the moved record 
in rms i/o buffer 
r0 status code 


Implicit Outputs: 


bdb$b_flgs - marked dirt 


r2-r6 destroyed 
irb$l-curbdb - updated i block boundary crossed | 


irb$l_nrp_vbn - updated if block boundary crossed 
irb$w_nrp_off - updated if block boundary crossed 


Completion Codes: 
standard rms. 
Side Effects: 


DWOONAUES WN O OO NAU EWN O OD NOAUE WW 0 OD NAU EWN" OWONOUS oO 
rere rere rere rere rere re rerererererererererererererererererererererererere rere rere rererere rere rere rarer 


19 OD OD SII OS DS ODS DS OS OS DS OS OS DS TTT BEE PAA 


WWNIDO OOOODOOOOODOODOODOOAAOOOOOOAOAOAOAQAAQAAOODOOOODIOAOOAOOOOOAOOOOOOOOOoo my 
PUPVPULVDV IVP LV DIVLVPUDPUIU LIVI VLU VIUIVI VIVO UIUIVLU LUI IUSVLVLUS USUI VITUS SUSU 


0 
1 if i/o stall occurs will have changed to 
¢ panes at ast level; reprobing any non-rab 
o7 user address will be required. 
5 
§ BLDREC: 
So -.3F £ SUBL3 R1,R7,RO0 : get # bytes left in buffer | 
56 50 O01 8 CMPL RO,R6 3; < record size? 
03 1B 89 BLEQU 20 : branch if so 
50 6 Dd0 90 MOVL R6,R0 3 no - just use buffer size 


P 
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RMIUPDATE EQUE 
v04-000 : 
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;55$:  B8SBB CHNGBF 


60$: 


5 
61. 6 3 5 
54 204A 
OA AS 9 
6 0D 
| oe) a 
18 13 
51 OD 
1A 10 
Op 55 seey 
ress" $6 
cc 50 «EB 
05 
51 53 00 
05 
04 10 
1s «© & 
05 
53 01 00 


Loe De aw we fe ee wee ew ae lw ew www we) www ww ol www ol ololeleololeleleleleleleleleleleololeleleleleoleleleol oo! =) 
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HNGBF: MOVL #1,R3 
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C UPDATE 16-SEP-1984 00:58:37 VAX/VMS Macro v04-00 Page 
LEVEL SEQUENTIAL SUPDA eit 0:38:27 RMS.SRCIRMIUPDATE.MAR; 1 ° 
$ SUBL R3 «06 ; adjust remaining count 

mMOoVC RO,(R5S),(R1) 3; move (partial) record to buffer 

MOVL 1ROSL CORBDB(R9) ,R4 * get current bdb 

BISB2 #BDB A_VAL '!BDBSM_DRT,BDB$B FLGS(R4) ; say valid & dirty 

TSTL Re 3; done? 

BEQL 40$ 3; branch if yes 

CMPL R1,R3 3 source = destination? 

EQL 60$ ; branch if yes 

PUSHLR1 3 save source addr 

BSBB CHNGBF 3 move to next buffer 

POPL 5 3; restore source addr 

BLBC RO,50$ ; get out on error 

BSBW § RMSPROBEREAD : reprobe user buffer 

BLBS RO,BLDREC ; and go again if no error 


; Have we exactly filled the buffer? 


40$:;  CMPL 7,R ; 
BEQL 55§ : If equal then we have, force it out. 
MOVL . ; next byte pointer to correct reg. 
RMSSUC 

50$: SB 


: force the current buffer to be written out. 


; move to next buffer 
; get out on error 
; reprobe user buffer 


BLBC RO, 508 
BsBW RMSPROBEREAD 


; since the source and destination pointers are equal, this is a 

; copy of the existing vfc header. read the next buffer and simply 
; bump the pointer in the block as the vfc header is definitely not 
; longer than the new buffer. 


BSBB CHNGBF ; read in next block buffer 
ADDL2 = R6,,R1 s + 4 buffer addr past rest 
3; of header 


RSB 


change buffer/block subroutine 


calls rm$nxtblk1 subroutine with r3 set to read in the next block 
unless the block will be completely filled by the record, in which 
case no read is required. 

all other inputs and outputs same as for rm$nxtblk1 


; flag no read required 


RMIUPDATE SEQUENTIAL SPECIFIC UPDATE SEP-19 0:58:37 VAX/VMS Macro v04-00 Page 
your000 RMSUPDATE? - HIGH CEVEL SEQUENTIAL SUPDA Bets 8 38:27 RMS.SRCIRMIUPDATE .MAR; 1 . 
48 AA 29 2 1E 648 CMPW ee. 6 JEBSL. DEVBUFS1Z(R10) ; will plogk ee filled? 
1 ‘ 1E ee BGEQ ; branch if y 
50 40 A9 1 C 1E 29 ADOL i. IRB$L_NRP_VBN(R9) ,RO ; compute next "ven 
74 AA Di OTE 6 CMPL IFBSL_EBKTR10) i past eof? 
1F Q1F $26 BLSSU : branch if not (must read) 
1A \fe 634 BGTRU CHNGBF1 ; branch if yes (no read) 
1F4 «6655 ; 
1F4 656 ; in the eof block = check for read required 
ye 
SC AA 5 Bl O1F4 826 CMPW R6,1FBSW_FFB(R10) i; any bytes that won't be overwritten? 
63 1E Q1F8 660 BGEQU CHNGBF1 ; branch if none (no read) 
> D4 se ra a ‘ta CLRL R3 : flag read required 
FEO1" 31 OFC + ia BRW RMSNXTBLK1 : go read next block 
O1FF 664 
O1FF 665 
O1FF 666 «END 


RMIUPDATE 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 
$SRMS_PBUGCHK 
$SRMS~TBUGCHK 
$ UMODE 


SEQUENTIAL SPECIFIC UPDATE 


SSEP=198 


Sh AX/VMS Macro V04-00 
6:25:54 RMS.SRCIJRMIUPDATE .MAR; 1 


- BSSeE 


RRERRAE 
RRARHREE 
RRERAAEE 
RRARRRET 
RRRREHET 
RREKHRET 


Oo 
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RMSPUT_UNIT_REC eeeeeene 
MSSEQJNL 
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DEV$V_RND = 
ERRCUR 
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STM_FMT_DFT 
TPTSL_UPDATE1 
UPDA 
UPDATE_REC 
UPDERR 
UPDERR_B 


R 
R 01 UPDERR_RSTNRP 
UPDERR_RSTNRP_1 
UPDXIT 
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_FSZ 
$B_ JNLFLG 
$B-RECVRFLGS 
“RF MORG 
$L_DEVBUF S1Z 
$L_PRIM_DEV 
$M_BI_RECVR 
SA_RULRECVR 
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NORE AD 0 
NOREAD1 

NTUPD 

PIOSA_TRACE atereere YX 
RABSL _RHB 
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SEQUENTIAL SPECIFIC UPDATE 
Psect synopsis 


16-SEP-1984 00:58:37 VAX/VMS Macro v04-00 Page 
Breer oks Soraeiee PANS eRcTamOPhatewar:1 29 
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Psect synopsis ! 


' 
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PSECT name Allocation PSECT No. Attributes 


, OS « 0000000 ( 0.) 60 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS1 OOOOIFF ¢ 511.) . © tae PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 60 :00:00.19 90:00:01 «38 

Command processing 1g 00:00:00.7 0:00: 9-18 

Pass 1 350 bs SPR 00:00:25.7 

Symbol table sort 0 00:00:01.5 00:00:02.62 

Pass 2 121 BF B08 «OF 00:00:06.99 

Symbol table output 11 0:00: HY 00:00:00.54 

Psect synopsis output 2 00:00:00.0 00:00:00.03 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 644 00:00:16.60 00:00:43.41 


The working set Limit was 1500 pages. : 

65733 bytes (129 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1226 non-local and 16 Local symbols. 
666 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

25 pages of virtual memory were used to define 24 macros. 
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_$255$DUA28: [RMS .OBJ JRMS.MLB; 1 14 
_$255$0UA28: CSYS.OBJJLIB.MLB; 1 1 

$255$DUA28: CSYSLIBISTARLET .MLB;2 5 
TOTALS (all Libraries) 20 


1336 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIUPDATE/OBJ=OBJ$:RMIUPDATE MSRC$:RMIUPDATE/UPDATE=(ENHS$: RMIUPDATE) +EXECML$/LIB+LIB$:RMS/LIB 
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